home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / HAMRADIO / LOGBOOK.ZIP / DXCCMAN.PRG < prev    next >
Text File  |  1986-05-14  |  3KB  |  95 lines
  1. * DXCCMAN MANUAL POINTER TO DXCC UPDATE 860429
  2. * COPYRIGHT (c) G3ZCZ 1986
  3. IF FILE (logbook)
  4.    SELECT primary
  5.    USE &logbook  INDEX &logbook
  6.  
  7.    SELECT SECONDARY
  8.    USE &dxcc
  9.  
  10.    STORE T   TO cflag
  11.    STORE ' ' TO dxccn
  12.    STORE ' ' TO df
  13.    STORE '         ' TO callcard
  14.  
  15.    DO WHILE cflag
  16.       ERASE
  17.       @ 3,1 SAY ' '
  18.       ACCEPT    'Which DXCC prefix (* to terminate) ?'  TO dxccn
  19.    IF  dxccn = '*'
  20.       STORE F TO cflag
  21.    ELSE
  22.       SELECT SECONDARY
  23.       * GO DIRECTLY TO RECORD
  24.       GOTO TOP
  25.       LOCATE FOR px = dxccn
  26.       IF (EOF)
  27.          @ 8,1 SAY ' '
  28.          ? dxccn,' DOES NOT EXIST'
  29.       ELSE
  30.          IF dcall = ' '
  31.             ?   dxccn,' is not worked'
  32.          ELSE
  33.             DISP
  34.          ENDIF
  35.          @ 10,1 SAY 'Do you want to update the entry (Y/N) ?'
  36.          @ 10,40 GET df
  37.          READ
  38.          IF df = 'Y'
  39.             STORE '         ' TO  callcard
  40.             SELECT PRIMARY
  41.             @ 12,1 SAY 'What is the call ? '
  42.             @ 12,21 GET callcard
  43.             READ
  44.             FIND &callcard
  45.             @ 14,1 SAY ' '
  46.             IF # = 0
  47.                ? callcard,' is not in log'
  48.             ELSE
  49.                STORE T TO qflag
  50.                DO WHILE call = callcard .AND. qflag
  51.                   @ 20,1 SAY ' '
  52.                   DISP
  53.                   @ 22,2 SAY ' '
  54.                   ACCEPT 'This one (Y/N) ?' TO df
  55.                   IF df = 'Y'
  56.                      STORE F TO qflag
  57.                   ENDIF
  58.                   SKIP
  59.                 ENDDO
  60.                 IF qflag
  61.                    * DON'T update entry
  62.                 ELSE
  63.                    SKIP -1
  64.                    SELECT SECONDARY
  65.                    REPLACE dcall WITH call
  66.                    REPLACE ddate WITH date
  67.                    REPLACE dtime WITH time
  68.                    REPLACE dband WITH band
  69.                    REPLACE dmode WITH mode
  70.                    IF qslrx = 'R'
  71.                       REPLACE dstate WITH 'Q'
  72.                    ELSE
  73.                       IF qslrx = '-'
  74.                          REPLACE dstate WITH 'W'
  75.                       ENDIF
  76.                    ENDIF
  77.                 ENDIF
  78.              ENDIF 
  79.           ENDIF
  80.        ENDIF
  81.     ENDIF
  82.     ENDDO
  83.     SELECT PRIMARY
  84.     USE
  85.     SELECT SECONDARY
  86.     USE
  87.  ELSE
  88.    ? 'ERROR,',logbook,' IS NOT ON DEFAULT DRIVE'
  89.    WAIT
  90. ENDIF
  91. RELEASE qflag,callcard,df,dxccn,cflag
  92. rd
  93.             SELECT PRIMARY
  94.             @ 12,1 SAY 'What is the call ? '
  95.             @ 12,21